The Ultimate Frank Lloyd…ght - America's Architect/Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso/pre/flw/flwat06.dir/00070_Script_70

Text File | 1994-11-15 | 5KB | 187 lines

on startMovie
  global currMM, stateOn, stepNow, dialogOn
  global rolledAlready, showText, switchState
  set dialogOn = FALSE
  set stepNow = FALSE
  set switchState = FALSE
  set stateOn = FALSE
  set rolledAlready = FALSE
  set showText = FALSE
  set currMM = "FLWWW"
  puppetSprite 10, TRUE
  puppetSprite 21, TRUE
  puppetSprite 22, TRUE
  puppetSprite 23, TRUE
  set the immediate of sprite 23 to TRUE
  set the stretch of sprite 23 to FALSE
end startMovie

on stepMovie
  global nowFrame,currFrame
  if nowFrame  <> currFrame then
    seeAlsoList
    set currFrame = nowFrame
  end if
end stepMovie

on stopMovie
  set the castNum of sprite 21 to 1050
  puppetSprite 21, FALSE
  put " " into field "seeAlsoText"
  updateStage
end stopMovie

on scrollRoll
  global switchState

  if rollover(13) then
    set the forecolor of sprite 13 to 228
  else
    set the forecolor of sprite 13 to 255
  end if

  if rollover(14) then
    set the forecolor of sprite 14 to 228
  else
    set the forecolor of sprite 14 to 255
  end if

  --ò FRAMES TO BE FIXED...

  --if the frame > 1  and the frame < 153 then
  if the castNum of sprite 7 = 66 then
    if the castNum of sprite 13 <> the number of cast "nextTxUp" then
      set the castNum of sprite 13 to the number of cast "nextTxRt"
    end if
    set the castNum of sprite 14 to the number of cast "prevTxNull"
  else if the castNum of sprite 7 = 64 then
    set the castNum of sprite 13 to the number of cast "nextTxNull"
    if the castNum of sprite 14 <> the number of cast "prevTxUp" then
      set the castNum of sprite 14 to the number of cast "prevTxRt"
    end if
  else
    if the castNum of sprite 13 <> the number of cast "nextTxUp" then
      set the castNum of sprite 13 to the number of cast "nextTxRt"
    end if
    if the castNum of sprite 14 <> the number of cast "prevTxUp" then
      set the castNum of sprite 14 to the number of cast "prevTxRt"
    end if
  end if
  --end if

  updateStage
end scrollRoll

on multiScreenPup
  puppetSprite 7, TRUE
  puppetSprite 8, TRUE
  puppetSprite 11, TRUE
  puppetSprite 13, TRUE
  puppetSprite 14, TRUE
end multiScreenPup

on saveLocals
  global lastFrame, nowFrame, lastMovie
  set lastFrame = nowFrame
  set lastMovie = the movie
end saveLocals

on buttonState
  global FrankNav
  global thumbTrack, thumbFrame, bflag, dialogOn

  if dialogOn = FALSE then

    glassCheck
    scrollRoll

    -- don't check global buttons unless mouse is down at bottom
    if (the mouseV > 300) or (bFlag = TRUE) then
      doState
    end if
  end if
end buttonState

on atForStep
  puppetSprite 7, FALSE
  puppetSprite 8, FALSE
  puppetSprite 11, FALSE
  puppetSprite 13, FALSE
  puppetSprite 14, FALSE
  if the frame = 27 then
    go to movie "FLWAT01"
  else
    go to marker(+1)
  end if
  updateStage
end atForStep

on atBackStep
  puppetSprite 7, FALSE
  puppetSprite 8, FALSE
  puppetSprite 11, FALSE
  puppetSprite 13, FALSE
  puppetSprite 14, FALSE
  if the frame < 3 then
    go to frame "at000bld121°°°" of movie "FLWAT05"
  else
    go to marker(-1)
  end if
  updateStage
end atBackStep

on textRoll txHt
  global origLocV, rolledAlready, topHat, horNess, dialogOn, SeeAlsoBox
  if dialogOn = FALSE and SeeAlsoBox = FALSE then
    set topHat = txHt
    if rolledAlready = FALSE then
      set origLocV = the locV of sprite 8
    end if

    if the mouseH < 414 and the mouseV > 366 and the mouseV < 429 then
      set the locV of sprite 8 to txHt
      set rolledAlready = TRUE
    else if the mouseH > 414 or the mouseV > 429 or the mouseV < topHat then
      set the locV of sprite 8 to origLocV
    end if
  end if
end textRoll

on glassCheck
  global stateOn, adjLoc

  if rollOver(10) then
    set the castNum of sprite 10 to 123
  else
    set the castNum of sprite 10 to 2
  end if

  updateStage
end glassCheck

on nextList
  global switchState
  puppetSprite 11, FALSE
  puppetSprite 13, FALSE
  puppetSprite 14, FALSE
  set switchState = TRUE
  if rollover(13) then
    set currCast = the castNum of sprite 7
    set the castNum of sprite 7 to (the number of cast currCast - 1)
    set the castNum of sprite 11 to 127
  end if
end nextList

on prevList
  global switchState
  puppetSprite 11, FALSE
  puppetSprite 13, FALSE
  puppetSprite 14, FALSE
  set switchState = TRUE
  if rollover(14) then
    set currCast = the castNum of sprite 7
    set the castNum of sprite 7 to (the number of cast currCast + 1)
    set the castNum of sprite 11 to 127
  end if
end prevList